home *** CD-ROM | disk | FTP | other *** search
/ Ahoy: Best of 1985 / Ahoy_Best_of_1985_1986_Double_L.d64 / fontasia f'85 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  65 lines
  1. 1 rem ***    printer format pgr    ***
  2. 2 rem ***   epson card/?+g format  ***
  3. 3 rem ***   written by john laws   ***
  4. 4 rem ***      sept 16, 1984       ***
  5. 5 rem ********************************
  6. 9 poke53280,0:poke53281,7:poke646,9
  7. 10 print"[147]"spc(7)"printer format program"       "
  8. 20 [153][166]9)"1wait elite print"
  9. 30 [153][166]9)"2wait condensed print"
  10. 40 [153][166]9)"3wait italics print"
  11. 50 [153][166]9)"4wait emphasized print"
  12. 60 [153][166]9)"5wait enlarged print"
  13. 70 [153][166]9)"6wait double strike print"
  14. 80 [153][166]9)"7wait set line spacing"
  15. 90 [153][166]9)"8wait set left margin"
  16. 100 [153][166]9)"9wait ignore paper end"
  17. 105 [153][166]9)"10wait set form length"
  18. 107 [153][166]9)"11wait set skip-over perforation"
  19. 110 [153][166]10);:[133]"your choice";k$:[139]k$[178]""[167]110
  20. 120 k[178][197](k$):[139]k [179]1 [176] k [177]11 [167] 110
  21. 130 [159]4,4,0:[145] k [141]200,250,300,350,400,450,500,600,650,700,850
  22. 140 [152]4:[160]4:[153]"loadchange another function (y/n)"
  23. 150 [161]k$:[139]k$[178]""[167]150
  24. 160 [139]k$[179][177]"y" [175] k$[179][177]"n"[167]150
  25. 170 [139]k$[178]"y"[167]10
  26. 180 [128]
  27. 200 [152]4,[199](27);[199](77);"elite mode":[142]
  28. 250 [152]4,[199](27);[199](20);"condensed mode":[142]:[143] card+g changes to 15
  29. 300 [152]4,[199](27);[199](52);"italics mode":[142]
  30. 350 [152]4,[199](27);[199](69);"emphasized mode":[142]
  31. 400 [152]4,[199](27);[199](87);[199](1);"enlarged mode":[142]
  32. 450 [152]4,[199](27);[199](71);"double strike mode":[142]
  33. 500 [153]"load"[166]9)"your choices are: ":[153][166]9)"1wait 7/72 in spacing"
  34. 501 [153][166]9)"2wait 1/8 in spacing (9/72)":[153][166]9)"3wait 1/6 in spacing (12/72)"
  35. 502 [153][166]9)"4wait n/72 in spacing"
  36. 503 [161]k$:[139]k$[178]""[167]503
  37. 504 k[178][197](k$):[139]k [179]1 [176] k [177]4 [167] 503
  38. 505 [145] k [137] 590,580,570,510
  39. 506 [137]503
  40. 510 [133]"what value do you want to give n";n
  41. 520 [139] n[178]0 [167]510
  42. 530 [152]4,[199](27);[199](65);[199](n);n;"/72 in. line":[152]4,"spacing set"
  43. 531 [142]
  44. 570 [152]4,[199](27)[199](50);"1/6 in. (12/72) line":[152]4,"spacing set":[142]
  45. 580 [152]4,[199](27);[199](48);"1/8 in. (9/72) line":[152]4,"spacing set":[142]
  46. 590 [152]4,[199](27);[199](49);"7/72 in. line":[152]4,"spacing set":[142]
  47. 600 [153]"loadwhat column do you want left margin":[153][166]15);:[133] n
  48. 605 [152]4:[160]4:[159]4,4,4:[143] transparent mode on star is 4,4,6
  49. 610 [152]4,[199](27);[199](108);[199](n);"left margin is";n:[142]
  50. 650 [152]4,[199](27);[199](56);"ignore paper-end signal":[142]
  51. 700 [153]"loaddo you wish to set the form length by"
  52. 710 [153][166]9);"1wait number of lines"
  53. 720 [153][166]9);"2wait by inch length"
  54. 730 [161]k$:[139]k$[178]""[167]730
  55. 740 k[178][197](k$):[139]k[179][177]1 [175] k[179][177]2 [167] 730
  56. 750 [139] k[178]2 [167] 800
  57. 760 [153]""[166]9);:[133]"how many lines per page";n
  58. 770 [152]4,[199](27);[199](67);[199](n);"form length is"n"lines per page":[142]
  59. 800 [153]""[166]9);:[133]"how many inches per page";n
  60. 810 [152]4,[199](27);[199](67);[199](0);[199](n);"form length is"n"inches per page"
  61. 820 [142]
  62. 850 [153]"loadhow many lines to skip on bottom of page":[133] n
  63. 860 [152]4,[199](27);[199](78);[199](n);"skip-over perforation set
  64. 870 print#4,"with"n"lines at bottom of page being left blank":return
  65.